Imports Microsoft.VisualBasic

Public Class Message
    Public Enum MsgPriority As Integer
        Normal = 0
        High = 1
        Low = 2
    End Enum

    Private msSenderName As String
    Private msSenderEmail As String
    Private miPriority As MsgPriority
    Private mbReturnReceipt As Boolean
    Private msRecipientAddressList As String
    Private msRecipientCCList As String
    Private msRecipientBCCList As String
    Private msAttachmentList As String
    Private msAttachmentText As String
    Private msSubject As String
    Private msMessage As String
    Private mbFormatAsHTML As Boolean = True

    Public Property SenderName() As String
        Get
            Return msSenderName
        End Get
        Set(ByVal value As String)
            msSenderName = value
        End Set
    End Property

    Public Property SenderEmail() As String
        Get
            Return msSenderEmail
        End Get
        Set(ByVal value As String)
            msSenderEmail = value
        End Set
    End Property

    Public Property Priority() As MsgPriority
        Get
            Return miPriority
        End Get
        Set(ByVal value As MsgPriority)
            miPriority = value
        End Set
    End Property

    Public Property ReturnReceipt() As Boolean
        Get
            Return mbReturnReceipt
        End Get
        Set(ByVal value As Boolean)
            mbReturnReceipt = value
        End Set
    End Property

    Public Property RecipientAddressList() As String
        Get
            Return msRecipientAddressList
        End Get
        Set(ByVal value As String)
            msRecipientAddressList = value
        End Set
    End Property

    Public Property RecipientCCList() As String
        Get
            Return msRecipientCCList
        End Get
        Set(ByVal value As String)
            msRecipientCCList = value
        End Set
    End Property

    Public Property RecipientBCCList() As String
        Get
            Return msRecipientBCCList
        End Get
        Set(ByVal value As String)
            msRecipientBCCList = value
        End Set
    End Property

    Public Property AttachmentList() As String
        Get
            Return msAttachmentList
        End Get
        Set(ByVal value As String)
            msAttachmentList = value
        End Set
    End Property

    Public Property AttachmentText() As String
        Get
            Return msAttachmentText
        End Get
        Set(ByVal value As String)
            msAttachmentText = value
        End Set
    End Property

    Public Property Subject()
        Get
            Return msSubject
        End Get
        Set(ByVal value)
            msSubject = value
        End Set
    End Property

    Public Property Message() As String
        Get
            Return msMessage
        End Get
        Set(ByVal value As String)
            msMessage = value
        End Set
    End Property

    Public Property FormatAsHTML() As Boolean
        Get
            Return mbFormatAsHTML
        End Get
        Set(ByVal value As Boolean)
            mbFormatAsHTML = value
        End Set
    End Property
End Class